10 ZZ=ZZ+1:POKE53272,21:PRINT""
20 IFZZ=1THENPOKE53280,0:POKE53281,0:GOTO2180
30 IFZZ=2THENLOAD"RO1",8,1
40 IFZZ=3THENLOAD"RO2",8,1
45 IFZZ=4THENLOAD"FANFARE",8,1
50 GOSUB2340:FORX=1TO500:NEXT
60 POKESP+21,0:GOSUB2140
70 PRINT"[147][159]              =   ";
80 PRINT"[146]                =   [146]"
90 PRINT"  [159]          ";
100 PRINT"  =   [146]                =   [146]       ";
110 PRINT"                         ";
120 PRINT"  [146]                       ";
130 PRINT"                         ";
140 PRINT" [159]           [180]  [180]  [180]  [180]  [180]";
150 PRINT"  [180]  [180]  [180]  [180]    [159]         ";
160 PRINT"  [180]  [180]  [180]  [180]  [180]  [180]  [180]  [180] ";
170 PRINT" [180]    [159]           [180]1 [180]2 [180]3";
180 PRINT" [180]4 [180]5 [180]6 [180]7 [180]8 [180]9   [159]    ";
190 PRINT"       [180]  [180]  [180]  [180]  [180]  [180]  ";
200 PRINT"[180]  [180]  [180]    [159]           [180]  ";
210 PRINT"[180]  [180]  [180]  [180]  [180]  [180]  [180]  [180]   ";
220 PRINT" [159]           [180]  [180]  [180]  [180]  [180]";
230 PRINT"  [180]  [180]  [180]  [180]             ";
240 PRINT"                         ";
250 PRINT"                         ";
260 PRINT"                         ";
270 PRINT"                         ";
280 PRINT"                         ";
290 PRINT"                         ";
300 PRINT"                         ";
310 PRINT"                         ";
320 PRINT"                         ";
330 PRINT"                         ";
340 PRINT"                         ";
350 PRINT"                         ";
360 PRINT"                         ";
370 PRINT"                         ";
380 PRINT"                         ";
390 PRINT"                         ";
400 PRINT"                         ";
410 PRINT"                         ";
420 PRINT"                   [146][144]"
430 POKE1983,160:POKE54272+1983,6
440 ED$=""
450 SB=1313:SC=54272:TY%=4:LN%=1
460 PRINTED$"NUMBER OF PLAYERS   [157][157][157] ";:GOSUB2850:NP$=K$
470 IFK$>"0"ANDK$<"5"THEN510
480 PRINTED$"      CHOOSE A NUMBER FROM 1 TO 4!"
490 FORA=1TO2000:NEXT
500 PRINTED$"                                     ":GOTO460
510 GZ$="        [157][157][157][157][157][157][157][157]"
520 NP=VAL(NP$)
530 GOSUB2620
540 PN=177:R1=45:R2=45:R3=45:R4=45:NN=1
550 GG$="[159]":PRINTGG$;F$;"[146]" :GOSUB1760:GOSUB1960:GOTO630
560 NN=NN+1
570 IFNN=NP+1THENGOTO2430
580 PN=PN+1
590 PRINTGG$;"          [146]"
600 IFNN=2THENPRINTGG$;GZ$;S$
610 IFNN=3THENPRINTGG$;GZ$;T$
620 IFNN=4THENPRINTGG$;GZ$;L$
630 CP=0:IFF$="WIZ KID"ANDNN=1THENCP=1
640 IFS$="WONDER BOY"ANDNN=2THENCP=1
650 IFT$="SASSY SUE"ANDNN=3THENCP=1
660 IFL$="MICRO CHIP"ANDNN=4THENCP=1
670 IFL$="MICRO CHIP"ANDNN=4THENCP=1
680 IFCP=1THENPRINT"[159]ROLLING":GOTO700
690 PRINT"[159]ROLL DICE"
700 IFCP<>1THENPRINT"(PRESS R)[146]":GOTO720
710 PRINT"  DICE   [146]"
720 GOSUB750
730 PRINT"[159]         [146]":PRINT"[159]         [146]"
740 GOTO1010
750 IFCP=1THEN780
760 GETA$:IFA$=""THEN760
770 IFA$<>"R"THEN760
780 REM
790 SP=53248
800 POKE2042,248:POKE2043,249:POKESP+41,1:POKESP+42,1:POKESP+28,15
810 POKE2040,248:POKE2041,249:POKESP+21,1:POKESP+39,1:POKESP+40,1
820 S1=5:X=255:SYS(29965+155)
830 X=X-20:POKESP+21,S1
840 POKESP,X:POKESP+1,172
850 POKESP+2,X:POKESP+3,172
860 POKESP+4,X:POKESP+5,200
870 POKESP+6,X:POKESP+7,200
880 S1=S1+5
890 IFS1=15THENS1=5
900 IFX>30THEN830
910 S1=5:X=30
920 X=X+5:POKESP+21,S1
930 POKESP,X:POKESP+1,172
940 POKESP+2,X:POKESP+3,172
950 POKESP+4,X:POKESP+5,200
960 POKESP+6,X:POKESP+7,200
970 S1=S1+5
980 IFS1=15THENS1=5
990 IFX>100THENPOKE(29965+1079),4:RETURN
1000 GOTO920
1010 D1=INT(6*RND(0)+1)
1020 D2=INT(6*RND(0)+1)
1030 TD=D1+249:BD=D2+249
1040 POKE2040,TD:POKE2041,BD
1050 POKESP+21,3:POKESP,105:POKESP+1,172
1060 POKESP+2,105:POKESP+3,200
1070 B$="":BN=0:BB=0:D3=D1+D2
1080 DD=D3:PRINTB$;"DICE TOTAL";DD:IFCP=1THEN1110
1090 PRINT"TYPE NUMBER(S)[146]"
1100 PRINT"E=ERASE D=DONE[146]"
1110 IFCP=1ANDBB=1THENBB=0:D3=DD
1120 IFCP=1THEN3080
1130 GETN$:IFN$=""THEN1110
1140 IFN$="D"THEN1520
1150 IF(N$>"9")OR(N$<"1")THEN1130
1160 N=VAL(N$):IFZ(N)=0THENGOSUB2060:GOTO1110
1170 IFN>D3THENGOSUB1980:GOTO1110
1180 Z(N)=0
1190 IFN=D3THEND3=D3-N:GOTO1910
1200 D3=D3-N:IFCP<>1THENPRINTB$"";N;"[146]"
1210 IFCP=1ANDBB=1THEN1110
1220 IFCP=1THEN1240
1230 GETN1$:IFN1$=""THEN1210
1240 IFN1$="D"THEN1520
1250 IFN1$="E"THENZ(N)=N:GOSUB1750:PRINTB$"        ":GOTO1110
1260 N1=VAL(N1$):IFZ(N1)=0THENGOSUB2070:GOTO1210
1270 IFN1>D3THENGOSUB1990:GOTO1210
1280 Z(N1)=0
1290 IFN1=D3THEND3=D3-N1:GOTO1910
1300 D3=D3-N1:IFCP<>1THENPRINTB$"";N1;"[146]"
1310 IFCP=1ANDBB=1THEN1110
1320 IFCP=1THEN1340
1330 GETN2$:IFN2$=""THEN1310
1340 IFN2$="D"THEN1520
1350 IFN2$="E"THENZ(N)=N:Z(N1)=N1:GOSUB1750:PRINTB$"       ":GOTO1110
1360 N2=VAL(N2$):IFZ(N2)=0THENGOSUB2080:GOTO1310
1370 IFN2>D3THENGOSUB2000:GOTO1310
1380 Z(N2)=0
1390 IFN2=D3THEND3=D3-N2:GOTO1910
1400 D3=D3-N2:IFCP<>1THENPRINTB$"";N2;"[146]"
1410 IFCP=1ANDBB=1THEN1110
1420 IFCP=1THEN1440
1430 GETN3$:IFN3$=""THEN1410
1440 IFN3$="D"THEN1520
1450 IFN3$="E"THENZ(N)=N:Z(N1)=N1:Z(N2)=N2:GOSUB1750:PRINTB$"         ":GOTO1110
1460 N3=VAL(N3$):IFZ(N3)=0THENGOSUB2090:GOTO1410
1470 IFN3>D3THENGOSUB2010:GOTO1410
1480 IFN3<>D3THENBB=1:GOTO1410
1490 Z(N3)=0
1500 IFN3=D3THEND3=D3-N3:GOTO1910
1510 PRINTB$"              "
1520 R1$="[159]"
1530 R2$="[159]"
1540 IFNN=1THENPRINTR1$"   [157][157][157]";R1;"[146]"
1550 IFNN=2THENPRINTR2$"   [157][157][157]";R2;"[146]"
1560 IFNN=3THENPRINTR1$;"   [157][157][157]";R3;"[146]"
1570 IFNN=4THENPRINTR2$;"   [157][157][157]";R4;"[146]"
1580 IFCP=1THENFORX=1TO1000:NEXT
1590 PRINTB$;"            "
1600 PRINTB$;"[157]               "
1610 PRINT"                    [146]"
1620 IFN<>0THENV=N:GOSUB3010
1630 IFN1<>0THENV=N1:GOSUB3010
1640 IFN2<>0THENV=N2:GOSUB3010
1650 IFN3<>0THENV=N3:GOSUB3010
1660 IFCP=1THENFORX=1TO1000:NEXT
1670 PRINTB$;"               "
1680 IFZ(1)+Z(2)+Z(3)+Z(4)+Z(5)+Z(6)+Z(7)+Z(8)+Z(9)=0THENN$="D":PL=1
1690 IFPL=1THENPRINT""TAB(20)"PURE LUCK !":PL=0:FORX=1TO2000:NEXT
1700 IFN$="D"THEN1830
1710 IFN1$="D"THEN1830
1720 IFN2$="D"THEN1830
1730 IFN3$="D"THEN1830
1740 N=0:N1=0:N2=0:N3=0:N$="":N1$="":N2$="":N3$="":GOTO630
1750 N=0:N1=0:N2=0:N3=0:N$="":N1$="":N2$="":N3$="":D3=DD:RETURN
1760 R1$="[159]"
1770 R2$="[159]"
1780 IFNP>0THENPRINTR1$;R1;"[146]"
1790 IFNP>1THENPRINTR2$;R2;"[146]"
1800 IFNP>2THENPRINTR1$;"";R3;"[146]"
1810 IFNP>3THENPRINTR2$;"";R4;"[146]"
1820 RETURN
1830 PRINT"[165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [146]"
1840 PRINT"[165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [146]"
1850 PRINT"[165]1 [165]2 [165]3 [165]4 [165]5 [165]6 [165]7 [165]8 [165]9 [146]"
1860 PRINT"[165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [146]"
1870 PRINT"[165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [146]"
1880 PRINT"[165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [165]  [146]"
1890 N=0:N1=0:N2=0:N3=0:N$="":N1$="":N2$="":N3$="":GOSUB1960
1900 GOTO560
1910 IFNN=1THENR1=R1-N:R1=R1-N1:R1=R1-N2:R1=R1-N3
1920 IFNN=2THENR2=R2-N:R2=R2-N1:R2=R2-N2:R2=R2-N3
1930 IFNN=3THENR3=R3-N:R3=R3-N1:R3=R3-N2:R3=R3-N3
1940 IFNN=4THENR4=R4-N:R4=R4-N1:R4=R4-N2:R4=R4-N3
1950 GOTO1510
1960 FORZZ=1TO9:Z(ZZ)=ZZ:NEXT
1970 RETURN
1980 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING ":GOTO2030
1990 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING ":Z(N)=N:GOTO2030
2000 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING ":Z(N)=N:Z(N1)=N1:GOTO2030
2010 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING ":Z(N)=N:Z(N1)=N1:Z(N2)=N2:GOTO2030
2020 PRINTB$;"[157][157][157][145]NUMBER TOO HIGH"
2030 FORX=1TO1000:NEXT:BB=1
2040 PRINTB$;"[157][157][157][145]               "
2050 RETURN
2060 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING  ":GOTO2110
2070 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING  ":Z(N)=N:GOTO2110
2080 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING  ":Z(N)=N:Z(N1)=N1:GOTO2110
2090 IFCP=1THENPRINTB$;"[157][157][157][145]    THINKING  ":Z(N)=N:Z(N1)=N1:Z(N2)=N2:GOTO2110
2100 PRINTB$;"[157][157][157][145]NUMBER ALREADY USED"
2110 FORX=1TO1000:NEXT:BB=1
2120 PRINTB$;"[157][157][157][145]                   "
2130 RETURN
2140 PRINT"    DO YOU WANT INSTRUCTIONS ?  (Y/N)"
2150 GETI$:IFI$=""THEN2150
2160 IFI$="Y"THENGOSUB3930
2170 RETURN
2180 PRINT"[147][158]            LOADSTAR PRESENTS"
2190 PRINT
2200 PRINT"    (C) 1988 BY DENNIS ZIMMERMAN"
2210 PRINT"[153]           [146]       [146]    [146]        [146]"
2220 PRINT"        [146]   [146]    [146]   [146]    [146]        [146]"
2230 PRINT"        [146]   [146]    [146]   [146]    [146]        [146]"
2240 PRINT"          [146]     [146]   [146]    [146]        [146]"
2250 PRINT"        [146]   [146]    [146]   [146]    [146]        [146]"
2260 PRINT"        [146]   [146]       [146]       [146]        [146]"
2270 PRINT"               [146]       [146]       [146]"
2280 PRINT"            [146]   [146]    [146]       [146]"
2290 PRINT"            [146]   [146]      [146]       [146]"
2300 PRINT"            [146]   [146]    [146]       [146]"
2310 PRINT"            [146]   [146]    [146]       [146]"
2320 PRINT"               [146]    [146]       [146]":IFZZ>1THEN2350
2330 IFZZ=1THENPRINT"        PLEASE WAIT -- LOADING ML":GOTO10
2340 PRINT"[145]                                     "
2350 GOSUB780:PRINT"[150]"
2360 PRINT"                 [146]       [146]       [146]"
2370 PRINT"              [146]   [146]    [146]       [146]  "
2380 PRINT"              [146]   [146]      [146]       [146]"
2390 PRINT"              [146]   [146]    [146]       [146]"
2400 PRINT"              [146]   [146]    [146]       [146]"
2410 PRINT"                 [146]    [146]       [146]"
2420 RETURN
2430 LS=0
2440 IFR1<R2ANDR1<R3ANDR1<R4THEN LS=1
2450 IFR2<R1ANDR2<R3ANDR2<R4THEN LS=2
2460 IFR3<R1ANDR3<R2ANDR3<R4THEN LS=3
2470 IFR4<R1ANDR4<R2ANDR4<R3THEN LS=4
2480 IFLS=0AND VAL(NP$)>1THENPRINTB$;"IT'S A TIE":GOTO2540
2490 IFLS=1THENLS$=F$
2500 IFLS=2THENLS$=S$
2510 IFLS=3THENLS$=T$
2520 IFLS=4THENLS$=L$
2530 POKESP+21,0:POKE214,13:PRINT:PRINTTAB(10)"AND THE WINNER IS..."
2532 AS$="":FORI=1TOLEN(LS$):AS$=AS$+" "+MID$(LS$,I,1):NEXT:AS$=AS$+" "
2533 POKE780,4:SYS49154:TI$="000000"
2534 IFTI<200THEN2534
2536 POKE54276,0:POKE54283,0:POKE54290,0:POKE54296,0
2540 POKE199,1:PRINTSPC(20-(LEN(AS$)/2))AS$
2550 POKE53269,0:PRINTED$"PLAY AGAIN (Y/N)[146]"
2560 GETP$:IFP$<>"Y"ANDP$<>"N"THEN2560
2570 IFP$="Y"THENCLR:ZZ=5:GOSUB2180:GOTO60
2580 PRINT"[147][154]":POKESP+21,0:POKE53272,21
2590 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
2600 IFER<>63THENEND
2610 LOAD"HELLO CONNECT",8
2620 PRINTED$"TYPE NAME OR 'C' FOR COMPUTER"
2630 TY%=1:LN%=10:PRINTED$"NAME FIRST PLAYER            [157][157][157][157][157][157][157][157][157][157][157][157] ";
2640 GOSUB2850:F$=K$:IFK$=""THEN2630
2650 IFF$="C"THENF$="WIZ KID"
2660 PRINT"[159]";F$:GOSUB2810:PRINT""
2670 IFNP>1THENPRINTED$"NAME SECOND PLAYER            [157][157][157][157][157][157][157][157][157][157][157][157] ";
2680 IFNP>1THENGOSUB2850:S$=K$:IFK$=""THEN2670
2690 IFS$="C"THENS$="WONDER BOY"
2700 PRINT""TAB(22)"[159]";S$:GOSUB2810:PRINT""
2710 IFNP>2THENPRINTED$"NAME THIRD PLAYER             [157][157][157][157][157][157][157][157][157][157][157][157] ";
2720 IFNP>2THENGOSUB2850:T$=K$
2730 IFT$="C"THENT$="SASSY SUE"
2740 PRINT"[159]";T$:GOSUB2810:PRINT""
2750 IFNP>3THENPRINTED$"NAME FORTH PLAYER             [157][157][157][157][157][157][157][157][157][157][157][157] ";
2760 IFNP>3THENGOSUB2850:L$=K$
2770 IFL$="C"THENL$="MICRO CHIP"
2780 PRINT""TAB(22)"[159]";L$:GOSUB2810:PRINT""
2790 PRINTED$"                              "
2800 RETURN
2810 PRINTED$"                                  [146]"
2820 RETURN
2830 N=0:N1=0:N2=0:N3=0:N$="0":N1$="0":N2$="0":N3$="0":D3=DD:GOSUB1960
2840 PRINTB$"                  ":GOTO1110
2850 POKE198,0:K$="":U=53280:
2860 GETA$:PRINT" "+CHR$(157);
2870 IFA$=""THEN2860
2880 IFA$=CHR$(13)THENPRINTCHR$(32):RETURN
2890 IF(A$=CHR$(20)ANDLEN(K$))THENPRINT" [157][157]";:K$=LEFT$(K$,LEN(K$)-1):GOTO2860
2900 IFLEN(K$)>=LN%THENT%=PEEK(U):POKEU,1:POKEU,T%:GOTO2860
2910 IF((TY%AND1)=1)AND(A$>="A")AND(A$<="Z")THEN2980
2920 IF((TY%AND2)=2)AND(A$>="A")AND(A$<="Z")THEN2980
2930 IF((TY%AND4)=4)AND(A$>="0")AND(A$<="9")THEN2980
2940 IF((TY%AND8)=8)AND(A$>=CHR$(32))AND(A$<=CHR$(127))THEN2980
2950 IFA$=CHR$(32)THEN2980
2960 IFTY%=0THEN2980
2970 GOTO2860
2980 K$=K$+A$
2990 PRINTA$;:IFA$=CHR$(34)THENPOKE212,0
3000 GOTO2860
3010 POKE1273+(V*3)+SC,0:POKE1274+(V*3)+SC,0:POKE1275+(V*3)+SC,0
3020 POKE1313+(V*3)+SC,0:POKE1314+(V*3)+SC,0:POKE1315+(V*3)+SC,0
3030 POKE1353+(V*3)+SC,0:POKE1354+(V*3)+SC,0:POKE1355+(V*3)+SC,0
3040 POKE1393+(V*3)+SC,0:POKE1394+(V*3)+SC,0:POKE1395+(V*3)+SC,0
3050 POKE1433+(V*3)+SC,0:POKE1434+(V*3)+SC,0:POKE1435+(V*3)+SC,0
3060 POKE1473+(V*3)+SC,0:POKE1474+(V*3)+SC,0:POKE1475+(V*3)+SC,0
3070 RETURN
3080 N=0:N1=0:N2=0:N3=0:N$="":N1$="":N2$="":N3$="":BN=BN+1
3090 IFDD=12THEN3200
3100 IFDD=11THEN3330
3110 IFDD=10THEN3440
3120 IFDD=9THEN3540
3130 IFDD=8THEN3630
3140 IFDD=7THEN3700
3150 IFDD=6THEN3760
3160 IFDD=5THEN3810
3170 IFDD=4THEN3850
3180 IFDD=3THEN3880
3190 IFDD=2THEN3910
3200 IFBN=1THENN$="9":N1$="3":GOTO1140
3210 IFBN=2THENN$="8":N1$="4":GOTO1140
3220 IFBN=3THENN$="7":N1$="5":GOTO1140
3230 IFBN=4THENN$="8":N1$="3":N2$="1":GOTO1140
3240 IFBN=5THENN$="9":N1$="2":N2$="1":GOTO1140
3250 IFBN=6THENN$="7":N1$="4":N2$="1":GOTO1140
3260 IFBN=7THENN$="7":N1$="3":N2$="2":GOTO1140
3270 IFBN=8THENN$="6":N1$="5":N2$="1":GOTO1140
3280 IFBN=9THENN$="5":N1$="4":N2$="3":GOTO1140
3290 IFBN=10THENN$="6":N1$="4":N2$="2":GOTO1140
3300 IFBN=11THENN$="6":N1$="3":N2$="2":N3$="1":GOTO1140
3310 IFBN=12THENN$="5":N1$="4":N2$="2":N3$="1":GOTO1140
3320 N$="D":GOTO1140
3330 IFBN=1THENN$="9":N1$="2":GOTO1140
3340 IFBN=2THENN$="8":N1$="3":GOTO1140
3350 IFBN=3THENN$="7":N1$="4":GOTO1140
3360 IFBN=4THENN$="6":N1$="5":GOTO1140
3370 IFBN=5THENN$="7":N1$="3":N2$="1":GOTO1140
3380 IFBN=6THENN$="8":N1$="2":N2$="1":GOTO1140
3390 IFBN=7THENN$="6":N1$="4":N2$="1":GOTO1140
3400 IFBN=8THENN$="6":N1$="3":N2$="2":GOTO1140
3410 IFBN=9THENN$="5":N1$="4":N2$="2":GOTO1140
3420 IFBN=10THENN$="5":N1$="3":N2$="2":N3$="1":GOTO1140
3430 N$="D":GOTO1140
3440 IFBN=1THENN$="9":N1$="1":GOTO1140
3450 IFBN=2THENN$="8":N1$="2":GOTO1140
3460 IFBN=3THENN$="7":N1$="3":GOTO1140
3470 IFBN=4THENN$="6":N1$="4":GOTO1140
3480 IFBN=5THENN$="7":N1$="2":N2$="1":GOTO1140
3490 IFBN=6THENN$="6":N1$="3":N2$="1":GOTO1140
3500 IFBN=7THENN$="5":N1$="4":N2$="1":GOTO1140
3510 IFBN=8THENN$="5":N1$="3":N2$="2":GOTO1140
3520 IFBN=9THENN$="4":N1$="3":N2$="2":N3$="1":GOTO1140
3530 N$="D":GOTO1140
3540 IFBN=1THENN$="9":GOTO1140
3550 IFBN=2THENN$="8":N1$="1":GOTO1140
3560 IFBN=3THENN$="7":N1$="2":GOTO1140
3570 IFBN=4THENN$="6":N1$="3":GOTO1140
3580 IFBN=5THENN$="5":N1$="4":GOTO1140
3590 IFBN=6THENN$="6":N1$="2":N2$="1":GOTO1140
3600 IFBN=7THENN$="5":N1$="3":N2$="1":GOTO1140
3610 IFBN=8THENN$="4":N1$="3":N2$="2":GOTO1140
3620 N$="D":GOTO1140
3630 IFBN=1THENN$="8":GOTO1140
3640 IFBN=2THENN$="7":N1$="1":GOTO1140
3650 IFBN=3THENN$="6":N1$="2":GOTO1140
3660 IFBN=4THENN$="5":N1$="3":GOTO1140
3670 IFBN=5THENN$="5":N1$="2":N2$="1":GOTO1140
3680 IFBN=6THENN$="4":N1$="3":N2$="1":GOTO1140
3690 N$="D":GOTO1140
3700 IFBN=1THENN$="7":GOTO1140
3710 IFBN=2THENN$="6":N1$="1":GOTO1140
3720 IFBN=3THENN$="5":N1$="2":GOTO1140
3730 IFBN=4THENN$="4":N1$="3":GOTO1140
3740 IFBN=5THENN$="4":N1$="2":N2$="1":GOTO1140
3750 N$="D":GOTO1140
3760 IFBN=1THENN$="6":GOTO1140
3770 IFBN=2THENN$="5":N1$="1":GOTO1140
3780 IFBN=3THENN$="4":N1$="2":GOTO1140
3790 IFBN=4THENN$="3":N1$="2":N2$="1":GOTO1140
3800 N$="D":GOTO1140
3810 IFBN=1THENN$="5":GOTO1140
3820 IFBN=2THENN$="4":N1$="1":GOTO1140
3830 IFBN=3THENN$="3":N1$="2":GOTO1140
3840 N$="D":GOTO1140
3850 IFBN=1THENN$="4":GOTO1140
3860 IFBN=2THENN$="3":N1$="1":GOTO1140
3870 N$="D":GOTO1140
3880 IFBN=1THENN$="3":GOTO1140
3890 IFBN=2THENN$="2":N1$="1":GOTO1140
3900 N$="D":GOTO1140
3910 IFBN=1THENN$="2":GOTO1140
3920 N$="D":GOTO1140
3930 POKE53281,7:PRINT"[158][147]":POKE53281,11:POKE147,0:SYS57812"ROLL OFF.SC1",8,1
3940 SYS62631
3950 GETI$:IFI$<>" "THEN3950
3960 POKE147,0:SYS57812"ROLL OFF.SC2",8,1:SYS62631
3970 GETI$:IFI$<>" "THEN3970
3980 POKE53272,21:POKE53281,0:RETURN